
100 i%=42
200 a$ = "Hello!"
300 dim array(65535)
1000 for i = 0 to 9
1100 read a(i)
1200 print i " is " a(i)
1300 next i
1400 print "i% = " i% ", i = " i " a$ = " a$
1500 read a$
1600 print "i% = " i% ", i = " i " a$ = " a$
1700 print "array(65535) = " array(65535)
2000 for j = 0 to 1000
2100 let h$(j) = hex$(j)
2200 next j
2900 print "This is hex: " h$(447) "=" hex$(447)


9000 gosub mysub0000%

9999 end
10000 proc mysub0000%
10200 print "This is a subroutine!"
10400 return

60000 data -42, -11, -12, -13, -14, -15, -16, -17, -18, -19
61000 data "My string data..."

list
run